;;;QQ:67762207
[@Marrage]
{
#Define N50{START} N50
#Define N51{WEDDING} N51
#Define N53{TIME} N53
#Define N55{WAITINGTIMEOUT} N55
#Define N56{MAN} N6
#Define N57{GIRL} N7

#Define B1{MANNAME} B1
#Define B2{GIRLNAME} B2
#Define B3{INPUTGIRLNAME} B3

#IF
Equal N50{START} 1

#SAY
_ھнȻ\\

#ELSESAY
_ԱΪԤ򸾽н.\
_ȴʱΪ10,糬10Ůᱻȡ.Ȼ뻨ѵǮҲûղ黹.\
_<顣/@wantGetMarried>\
_<顣/@wantDivorce>\
_<ȡ½ָ/@TakeMarriedRing>\\
_<ѯʹڽ鷽⡣/@MarriageQuestion>\

#IF
Equal B1{MANNAME} %USERNAME

#SAY
<˽롣/@PreCancelWedding>\\

#IF
IsAdmin

#SAY
_<ʼ/@ResetWeddingVariables>\

[@MarriageQuestion]
#IF

#SAY
_Ļ{FCOLOR/10}ȼ22{FCOLOR/12}ŮһͿˡ˱{FCOLOR/10}δ{FCOLOR/12}\
;_ΪͬʱܶĻңɱվ {FCOLOR/10}(42,30){FCOLOR/12}վ {FCOLOR/10}(43,31){FCOLOR/12}Żɹ\
_˫{FCOLOR/10}50{FCOLOR/12}˵ĽлĻõİ¡\\
_<  /@exit>

[@wantGetMarried]
#IF
!CheckLevel 22

#SAY
_ôżô͵ļǲеģΪҪ뾡Ҫѵ׵ļ\
_˶{FCOLOR/10}22Ժ{FCOLOR/12}ɡ\\
_<  /@exit>
#ACT
break

#IF
CheckMarriage

#SAY
_... Լİ»ûз֣ͱ˾ٰѵսȨλ? Ͽʧ!\\
_<  /@exit>
#ACT
break

#IF
Gender [man]
#ACT
goto @wantGetMarried_man
#ELSEACT
goto @wantGetMarried_woman



[@wantGetMarried_woman]
#IF
equal N56{MAN} 1
equal B3{INPUTGIRLNAME} %USERNAME
#ELSEACT
SysMsg "ɻû顣"
close
break

#IF
CheckGold 500000
#ACT
Take  500000
mov N57{GIRL} 1
mov B2{GIRLNAME} %USERNAME
SysMsg "ˡ"
close
#ELSEACT
SysMsg "òҪ50ҡ"
close



[@wantGetMarried_man]
#IF
Equal B1{MANNAME} ""
#SAY
_ҪĹʲô?\\
<ȷ֡/@@InputMarried_Woman>


#ELSESAY
_{FCOLOR/14}ڲ顣{FCOLOR/10}\\
<  /@exit>


[@@InputMarried_Woman]
#IF
Mov A5 %INPUTSTR
!Equal A5 ""

#SAY
_ҪĹ{FCOLOR/10}<$OUTPUT(A5)>{FCOLOR/12}?\
_ȷϽ?ֻ10ʱŶ~\
<ԡ/@ProcessMarried> \
<ԡ/@wantGetMarried_man> \


[@ProcessMarried]
#IF
Equal N56{MAN} 1

#SAY
_ڽл\

#ACT
break

#IF
!Equal B1{MANNAME} ""

#SAY
_ڽлȻ\\

#ACT

break

#IF
!Equal B3{INPUTGIRLNAME} ""

#SAY
_ڽлȻ\\

#ACT

break

#IF
!CheckGold 500000
#ACT
SysMsg "òҪ50ҡ"
close
break

#ELSEACT
Take  500000
mov B1{MANNAME} %USERNAME
mov B3{INPUTGIRLNAME} %A5
mov N56{MAN} 1
mov N55{WAITINGTIMEOUT} 0
Delaygoto [Grobal] 5 @startWeddingloop
SysMsg "ˡ"
EventMsg  "0" "()<$OUTPUT(B1)><$OUTPUT(B3)>С֣飬ϣ<$OUTPUT(B3)>СܹӦ<$OUTPUT(B1)>Ů10ٵ˾Ǵ顣"
close


[@startWeddingloop]
#IF
Equal N50{START} 1
#ACT
break

#IF
Inc N55{WAITINGTIMEOUT} 1
Large N55{WAITINGTIMEOUT} 10
#ACT
Sysmsg "Ϊʱѹ鱻ȡˡ"
goto @CancelWedding
break

#IF
Equal N56{MAN} 1
Equal N57{GIRL} 1
#ELSEACT
SysMsg "ȴ롣شﾡ10,ʱһ,뽫ȡ."
Delaygoto [Grobal] 5 @startWeddingloop
break

#IF
#ACT
Mov N50{START} 1
mov N51{WEDDING} 1
Mov N53{TIME} 0
EventMsg "global" "<$OUTPUT(B1)><$OUTPUT(B1)>Ľ񼴽С"
SysMsg "׼"
Delaygoto [Grobal] 3 @weddingCeremony
close



[@weddingCeremony]
#IF
Equal N51{WEDDING} 0
#ACT
speak "ȡ 1"
goto @CancelWedding
break

#IF
Large N53{TIME} 6
#ACT
speak "ԤԼĻʱѹ"
goto @CancelWedding
break

#IF
Equal N51{WEDDING} 1
#ACT
EventMsg "global" "ڿʼ<$OUTPUT(B1)><$OUTPUT(B2)>Ļ" 10005
Mov N51{WEDDING} 2
Inc N53{TIME} 1
Delaygoto [Grobal] 5 @weddingCeremony
break


#IF
Equal N51{WEDDING} 2
#ACT
Eventmsg "global" "ｻΪĽָ" 10005
GetMarried %B1 %B2
mov N51{WEDDING} 3
Delaygoto [Grobal] 5 @weddingCeremony
break


#IF
Equal N51{WEDDING} 3
#ACT
EventMsg "global"  "<$OUTPUT(B1)><$OUTPUT(B2)>Ļףλ˰ͷϣ" 
goto @cancelWedding
Break

#IF
#ACT
Inc N53{TIME} 1
Delaygoto [Grobal] 5 @weddingCeremony



[@wantDivorce]
#IF
CheckMarriage

#SAY
㲻˵ָ㽫? \
ҲǣܹԼŵҲͲ...ڵĻͽ200ɡ\\
<Ǯ顣/@divorcenow>\


#ELSESAY
ûнҪ飬! \\
<  /@exit>


[@divorcenow]
#IF
checkgold 2000000
#ACT
take  2000000
Divorce
close


[@TakeMarriedRing]
#IF
CheckMarriage

#SAY
ǲΪ˱˲ΥԵ? \
Ҳ֪ʲôԭֻҪ㽻200,000Ҿ͵ûнλ顣\
ֻҪ㽻ǮǰĻ͵ЧҽָҲȡ¡ȡµĽָֻҪµİ½õ½ָ \
ͻ³Ϊָ\\
<ʹ20ҲҪȡ½ָ/@ExchangeMarriedRing> \

#ELSESAY
㲻ҪȡµĽָû? ǲ̫...ôϿҸɡ\\
</@exit>


[@ExchangeMarriedRing]
#IF
checkgold 200000
#ACT
take  200000
CancelMarriageRing
SysMsg "ָĹʧˡ"
close

#ELSESAY
Ǯ\\
<  /@exit>

[@ResetWeddingVariables]
#ACT
goto @cancelWedding
close
break


[@PreCancelWedding]
#ACT
SysMsg "˽롣"
goto @CancelWedding
break




[@CancelWedding]
#ACT
Mov N50{START} 0
Mov N51{WEDDING} 0
Mov N53{TIME} 0
Mov N55{WAITINGTIMEOUT} 0
Mov N56{MAN} 0
Mov N57{GIRL} 0
Mov B1{MANNAME} ""
Mov B2{GIRLNAME} ""
Mov B3{INPUTGIRLNAME} ""
Mov B4 ""
Mov B8 ""
Mov B9 ""
close
break

[@quanfushiai]
#say
ǲĶ\
()ҿ԰!\
Էȫĺ֣ȫ˶Ļ\
շ50WһΡ\
<ܰ/@qiuai2>\
<뿪/@exit>
end

[@qiuai2]
#say
ܰ\
ע⣺\
ַ벻Ҫ̫.\
<ܰ/@@qiuai3>\
< /@exit>

[@@qiuai3]
#if
CheckGold 500000
#ACT
mov  A0  %INPUTSTR
mov  A1  %USERNAME
Take  500000
lineMsg [Grobal] "(ܰ)<$OUTPUT(A1)>:<$OUTPUT(A0)>"
#say
ϢѷͳɹϢ50򣬽ѡ\
#elsesay
Ǯ!
close
}
;;;QQ:67762207